Retrieve e-mail addresses from a text file

<#> 
<#> Sample: Retrieve e-mail addresses from a text file
<#> 
<cmds>

<msg>(100,100,"Select text file containing e-mail addresses to retrieve.","Message",0)
   <var_oper>(vbFilePath_Input,"*.txt",SELECT_FILE,"Select File","", "0")
   <if_str>("_vCanceled==1")<exitmacro><endif>
<msgoff>

<varset>("vNumOfEmailAddresses=0","")
<data_load>("vbTemp_FileText","vbFilePath_Input","")
<if_str>("_vErr==NO")

   <var_parse>("vbTemp_FileText","!#$^&*+=?';\~`<>:| %_vKeyReturn%()[]{},/%_vKeyTab%%_vQuoteChar%%_vKeyPercent%","",vbTemp_Word,vbTemp_NumOfWords)
   <begloop>(vbTemp_NumOfWords)

      <if_str>("vbTemp_Word[_vLoopCounter0]~=@")
         <if_str>("vbTemp_Word[_vLoopCounter0]~=.")
               <var_oper>(vNumOfEmailAddresses,"%vNumOfEmailAddresses%+1",CALC_EXPRESSION,"0","", "0")
               <msg>(-100,-100,"INSTEAD OF THIS MESSAGE, YOU CAN DO YOUR OWN E-MAIL ADDRESS PROCESSING HERE.

E-mail address found: %vbTemp_Word[_vLoopCounter0]%","E-mail Address Retrieved",1)

         <endif>
      <endif>
   <endloop>

<else>
   <msg>(-100,-100,"_vError","File Error",1)
<endif>
<if_num>("vNumOfEmailAddresses==0")
   <msg>(-100,-100,"No e-mail address found in the file.","File Error",1)
<endif>